|
700
|
How can I filter the check-boxes (method 1)
With AxGrid1
With .Columns.Add("Check")
With .Editor
.EditType = EXGRIDLib.EditTypeEnum.CheckValueType
.Option(EXGRIDLib.EditorOptionEnum.exCheckValue2) = 1
End With
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterType = EXGRIDLib.FilterTypeEnum.exCheck
End With
With .Items
.AddItem(True)
.AddItem(True)
.AddItem(False)
.AddItem(True)
.AddItem(False)
.AddItem(True)
.AddItem(False)
End With
End With
|
|
699
|
How can add a button to control
' ButtonClick event - Occurs when user clicks on the cell's button.
Private Sub AxGrid1_ButtonClick(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ButtonClickEvent) Handles AxGrid1.ButtonClick
With AxGrid1
Debug.Print( "ButtonClick" )
Debug.Print( .Items.CellCaption(e.item,e.colIndex) )
Debug.Print( e.key )
End With
End Sub
Dim h,s
With AxGrid1
.BeginUpdate()
.DefaultItemHeight = 22
.HeaderHeight = 22
.Appearance = EXGRIDLib.AppearanceEnum.None2
.DrawGridLines = EXGRIDLib.GridLinesEnum.exRowLines
.ScrollBySingleLine = False
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
.set_HTMLPicture("pic1","c:\exontrol\images\auction.gif")
With .Columns
With .Add("Type")
.Width = 48
.Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
End With
With .Add("Appearance")
.Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
.Alignment = EXGRIDLib.AlignmentEnum.CenterAlignment
.HeaderAlignment = EXGRIDLib.AlignmentEnum.CenterAlignment
End With
End With
With .Items
h = .AddItem("Items.<b>CellHasButton</b> property")
.CellValue(h,1) = "Button <b>1</b>"
.CellHasButton(h,1) = True
h = .AddItem("Items.<b>CellButtonAutoWidth</b> property")
.CellValue(h,1) = " Button <b>2</b> "
.CellHasButton(h,1) = True
.CellButtonAutoWidth(h,1) = True
h = .AddItem("Items.<b>CellHasButton</b> property")
.CellValue(h,1) = " <img>2</img>Button <b>3</b> "
.CellHasButton(h,1) = True
.CellButtonAutoWidth(h,1) = True
h = .AddItem("Items.<b>CellHasButton</b> property")
.ItemHeight(h) = 32
.CellValue(h,1) = " <img>2</img>Button <b>4</b> <img>pic1</img> "
.CellHasButton(h,1) = True
.CellButtonAutoWidth(h,1) = True
h = .AddItem("Items.<b>CellHasButton</b> in splitted cells")
.CellValue(h,1) = " Button <b>5.1</b> "
.CellHasButton(h,1) = True
.CellButtonAutoWidth(h,1) = True
s = .SplitCell(h,1)
.CellValue(0,s) = " Button <b>5.2</b> "
.CellHasButton(0,s) = True
.CellButtonAutoWidth(0,s) = True
h = .AddItem("Column.<b>Editor</b>, Items.<b>CellEditor</b>")
.CellValue(h,1) = "Visible when clicking the cell"
With .CellEditor(h,1)
.EditType = EXGRIDLib.EditTypeEnum.EditType
.AddButton("B1",1,0,"This is a bit of text that's shown when the cursor hovers the button B1")
.AddButton("B3",2,1,"This is a bit of text that's shown when the cursor hovers the button B3")
.AddButton("B4",1,1,"This is a bit of text that's shown when the cursor hovers the button B4")
.ButtonWidth = 24
End With
h = .AddItem("Column.<b>Editor</b>, Items.<b>CellEditor</b>")
.CellValue(h,1) = 3
With .CellEditor(h,1)
.EditType = EXGRIDLib.EditTypeEnum.CheckListType
.AddItem(1,"Flag 1")
.AddItem(2,"Flag 2")
.AddItem(4,"Flag 4")
.AddItem(8,"Flag 8")
.AddButton("C1",1,0,"This is a bit of text that's shown when the cursor hovers the button C1")
.AddButton("C3",2,0,"This is a bit of text that's shown when the cursor hovers the button C2")
.AddButton("C4",1,0,"This is a bit of text that's shown when the cursor hovers the button C3")
.ButtonWidth = 24
End With
End With
.EndUpdate()
End With
|
|
698
|
The item is not getting selected when clicking the cell's checkbox. What should I do
' CellStateChanged event - Fired after cell's state has been changed.
Private Sub AxGrid1_CellStateChanged(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_CellStateChangedEvent) Handles AxGrid1.CellStateChanged
With AxGrid1
.Items.SelectItem(e.item) = True
End With
End Sub
With AxGrid1
.Columns.Add("Check").Def(EXGRIDLib.DefColumnEnum.exCellHasCheckBox) = True
With .Items
.AddItem(0)
.AddItem(1)
.AddItem(2)
.AddItem(3)
End With
End With
|
|
697
|
Is it possible to limit the height of the item while resizing
' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxGrid1_AddItem(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_AddItemEvent) Handles AxGrid1.AddItem
With AxGrid1
.Items.ItemMinHeight(e.item) = 18
.Items.ItemMaxHeight(e.item) = 72
End With
End Sub
With AxGrid1
.BeginUpdate()
.ItemsAllowSizing = EXGRIDLib.ItemsAllowSizingEnum.exResizeItem
.ScrollBySingleLine = False
.BackColorAlternate = RGB(240,240,240)
.Columns.Add("Names")
With .Items
.AddItem("Mantel")
.AddItem("Mechanik")
.AddItem("Motor")
.AddItem("Murks")
.AddItem("Märchen")
.AddItem("Möhren")
.AddItem("Mühle")
End With
.Columns.Item(0).SortOrder = EXGRIDLib.SortOrderEnum.SortAscending
.EndUpdate()
End With
|
|
696
|
Is it possible to copy the hierarchy of the control using the GetItems method
Dim h
With AxGrid1
.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
.Columns.Add("Def")
With .Items
h = .AddItem("Root")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
End With
.PutItems(.GetItems(-1))
End With
|
|
695
|
Is it possible to auto-numbering the children items but still keeps the position after filtering
Dim h
With AxGrid1
.BeginUpdate()
.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
With .Columns.Add("Items")
.DisplayFilterButton = True
.FilterType = EXGRIDLib.FilterTypeEnum.exFilter
.Filter = "Child 2"
End With
With .Columns.Add("Pos.1")
.FormatColumn = "1 ropos ''"
.Position = 0
.Width = 32
.AllowSizing = False
End With
With .Columns.Add("Pos.2")
.FormatColumn = "1 ropos ':'"
.Position = 1
.Width = 32
.AllowSizing = False
End With
With .Columns.Add("Pos.3")
.FormatColumn = "1 ropos ':|A-Z'"
.Position = 2
.Width = 32
.AllowSizing = False
End With
With .Columns.Add("Pos.4")
.FormatColumn = "1 ropos '|A-Z|'"
.Position = 3
.Width = 32
.AllowSizing = False
End With
With .Columns.Add("Pos.5")
.FormatColumn = "'<font Tahoma;7>' + 1 ropos '-<b>||A-Z'"
.Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
.Position = 4
.Width = 32
.AllowSizing = False
End With
With .Columns.Add("Pos.6")
.FormatColumn = "'<b>'+ 1 ropos '</b>:<fgcolor=FF0000>|A-Z|'"
.Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
.Position = 5
.Width = 48
.AllowSizing = False
End With
With .Items
h = .AddItem("Root 1")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.ExpandItem(h) = True
h = .AddItem("Root 2")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
End With
.ApplyFilter()
.EndUpdate()
End With
|
|
694
|
Is it possible to auto-numbering the children items too
Dim h
With AxGrid1
.BeginUpdate()
.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
.Columns.Add("Items")
With .Columns.Add("Pos.1")
.FormatColumn = "1 rpos ''"
.Position = 0
.Width = 32
.AllowSizing = False
End With
With .Columns.Add("Pos.2")
.FormatColumn = "1 rpos ':'"
.Position = 1
.Width = 32
.AllowSizing = False
End With
With .Columns.Add("Pos.3")
.FormatColumn = "1 rpos ':|A-Z'"
.Position = 2
.Width = 32
.AllowSizing = False
End With
With .Columns.Add("Pos.4")
.FormatColumn = "1 rpos '|A-Z|'"
.Position = 3
.Width = 32
.AllowSizing = False
End With
With .Columns.Add("Pos.5")
.FormatColumn = "'<font Tahoma;7>' + 1 rpos '-<b>||A-Z'"
.Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
.Position = 4
.Width = 32
.AllowSizing = False
End With
With .Columns.Add("Pos.6")
.FormatColumn = "'<b>'+ 1 rpos '</b>:<fgcolor=FF0000>|A-Z|'"
.Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
.Position = 5
.Width = 48
.AllowSizing = False
End With
With .Items
h = .AddItem("Root 1")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.ExpandItem(h) = True
h = .AddItem("Root 2")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
End With
.EndUpdate()
End With
|
|
693
|
Is it possible to cancel or discard the values during validation
' ValidateValue event - Occurs before user changes the cell's value.
Private Sub AxGrid1_ValidateValue(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ValidateValueEvent) Handles AxGrid1.ValidateValue
With AxGrid1
Debug.Print( "ValidateValue" )
Debug.Print( e.newValue )
Debug.Print( "Change the Cancel parameter for ValidateValue event to accept/decline the newly value. " )
Debug.Print( "The DiscardValidateValue restores back the previously values." )
.DiscardValidateValue()
End With
End Sub
With AxGrid1
.BeginUpdate()
.CauseValidateValue = EXGRIDLib.ValidateValueType.exValidateCell
.Columns.Add("Date").Editor.EditType = EXGRIDLib.EditTypeEnum.DateType
.Columns.Add("Text").Editor.EditType = EXGRIDLib.EditTypeEnum.EditType
With .Items
.CellValue(.AddItem(#1/1/2001#),1) = "text"
.CellValue(.AddItem(#1/1/2001#),1) = "text"
.CellValue(.AddItem(#1/1/2001#),1) = "text"
.CellValue(.AddItem(#1/1/2001#),1) = "text"
.CellValue(.AddItem(#1/1/2001#),1) = "text"
End With
.EndUpdate()
End With
|
|
692
|
Is it possible to validate the values of the cells only when user leaves the focused item
' ValidateValue event - Occurs before user changes the cell's value.
Private Sub AxGrid1_ValidateValue(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ValidateValueEvent) Handles AxGrid1.ValidateValue
With AxGrid1
Debug.Print( "ValidateValue" )
Debug.Print( e.newValue )
Debug.Print( "Change the Cancel parameter for ValidateValue event to accept/decline the newly value. " )
e.cancel = True
Debug.Print( "You can not leave the item/record until the Cancel is False." )
End With
End Sub
With AxGrid1
.BeginUpdate()
.CauseValidateValue = EXGRIDLib.ValidateValueType.exValidateItem
.Columns.Add("Date").Editor.EditType = EXGRIDLib.EditTypeEnum.DateType
.Columns.Add("Text").Editor.EditType = EXGRIDLib.EditTypeEnum.EditType
With .Items
.CellValue(.AddItem(#1/1/2001#),1) = "text"
.CellValue(.AddItem(#1/1/2001#),1) = "text"
.CellValue(.AddItem(#1/1/2001#),1) = "text"
.CellValue(.AddItem(#1/1/2001#),1) = "text"
.CellValue(.AddItem(#1/1/2001#),1) = "text"
End With
.EndUpdate()
End With
|
|
691
|
We would like to validate the values of the cells. Is it possible
' ValidateValue event - Occurs before user changes the cell's value.
Private Sub AxGrid1_ValidateValue(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ValidateValueEvent) Handles AxGrid1.ValidateValue
With AxGrid1
Debug.Print( "ValidateValue" )
Debug.Print( e.newValue )
Debug.Print( "Change the Cancel parameter for ValidateValue event to accept/decline the newly value." )
e.cancel = True
Debug.Print( "You can not leave the cell until the Cancel is False." )
End With
End Sub
With AxGrid1
.BeginUpdate()
.CauseValidateValue = EXGRIDLib.ValidateValueType.exValidateCell
.Columns.Add("Date").Editor.EditType = EXGRIDLib.EditTypeEnum.DateType
.Columns.Add("Text").Editor.EditType = EXGRIDLib.EditTypeEnum.EditType
With .Items
.CellValue(.AddItem(#1/1/2001#),1) = "text"
.CellValue(.AddItem(#1/1/2001#),1) = "text"
.CellValue(.AddItem(#1/1/2001#),1) = "text"
.CellValue(.AddItem(#1/1/2001#),1) = "text"
.CellValue(.AddItem(#1/1/2001#),1) = "text"
End With
.EndUpdate()
End With
|
|
690
|
Is there any way to add auto-numbering
With AxGrid1
With .Columns
.Add("Items")
With .Add("Pos")
.FormatColumn = "1 pos ''"
.Position = 0
End With
End With
With .Items
.AddItem("Item 1")
.AddItem("Item 2")
.AddItem("Item 3")
End With
End With
|
|
689
|
Does your control supports multiple lines tooltip
With AxGrid1
.set_HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
.ToolTipDelay = 1
.Columns.Add("tootip").ToolTip = "<br><font Tahoma;10>This</font> is a <b>multi-lines</b> tooltip assigned to a column. The tooltip supports built-in HTML tags, " & _
"icons and pictures.<br><br><br><img>pic1</img> picture ... <br><br>"
End With
|
|
688
|
How can I prevent highlighting the column from the cursor - point
With AxGrid1
.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAEGg4BI0IQAAYAQGKIYBkAKBQAGaAoDDUOQzQwAAxDKKUEwsACEIrjKCYVgOHYYRrIMYgBCMJhLEoaZLhEZRQiqDYtRDFQBSDDcPw/EaRZohGaYJ" & _
"gEgI=")
.set_Background(EXGRIDLib.BackgroundPartEnum.exCursorHoverColumn,16777216)
.Columns.Add("S").Width = 32
.Columns.Add("Level 1").LevelKey = 1
.Columns.Add("Level 2").LevelKey = 1
.Columns.Add("Level 3").LevelKey = 1
.Columns.Add("E1").Width = 32
.Columns.Add("E2").Width = 32
.Columns.Add("E3").Width = 32
.Columns.Add("E4").Width = 32
End With
|
|
687
|
Is it possible display numbers in the same format no matter of regional settings in the control panel
Dim h
With AxGrid1
.BeginUpdate()
.Columns.Add("Def").Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
With .Items
h = .AddItem(100000.27)
.FormatCell(h,0) = "(value format '') + ' <fgcolor=808080>(default positive)'"
h = .AddItem(100000.27)
.FormatCell(h,0) = "(value format '2|.|3|,|1|1')"
h = .AddItem(-100000.27)
.FormatCell(h,0) = "(value format '') + ' <fgcolor=808080>(default negative)'"
h = .AddItem(-100000.27)
.FormatCell(h,0) = "(value format '2|.|3|,|1|1')"
End With
.EndUpdate()
End With
|
|
686
|
Is it possible to add a 0 for numbers less than 1 instead .7 to show 0.8
Dim h
With AxGrid1
.BeginUpdate()
.Columns.Add("Def").Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
With .Items
h = .AddItem(0.27)
.FormatCell(h,0) = "(value format '') + ' <fgcolor=808080>(default)'"
h = .AddItem(0.27)
.FormatCell(h,0) = "(value format '|||||0') + ' <fgcolor=808080>(Display no leading zeros)'"
End With
.EndUpdate()
End With
|
|
685
|
How can I specify the format for negative numbers
Dim h
With AxGrid1
.BeginUpdate()
.Columns.Add("Def").Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
With .Items
h = .AddItem(-100000.27)
.FormatCell(h,0) = "(value format '') + ' <fgcolor=808080>(default)'"
h = .AddItem(-100000.27)
.FormatCell(h,0) = "(value format '||||1') + ' <fgcolor=808080>(Negative sign, number; for example, -1.1)'"
End With
.EndUpdate()
End With
|
|
684
|
Is it possible to change the grouping character when display numbers
Dim h
With AxGrid1
.BeginUpdate()
.Columns.Add("Def").Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
With .Items
h = .AddItem(100000.27)
.FormatCell(h,0) = "(value format '') + ' <fgcolor=808080>(default)'"
h = .AddItem(100000.27)
.FormatCell(h,0) = "(value format '|||-') + ' <fgcolor=808080>(grouping character is -)'"
End With
.EndUpdate()
End With
|
|
683
|
How can I display numbers with 2 digits in each group
Dim h
With AxGrid1
.BeginUpdate()
.Columns.Add("Def").Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
With .Items
h = .AddItem(100000.27)
.FormatCell(h,0) = "(value format '') + ' <fgcolor=808080>(default)'"
h = .AddItem(100000.27)
.FormatCell(h,0) = "(value format '||2') + ' <fgcolor=808080>(grouping by 2 digits)'"
End With
.EndUpdate()
End With
|
|
682
|
How can I display my numbers using a different decimal separator
Dim h
With AxGrid1
.BeginUpdate()
.Columns.Add("Def").Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
With .Items
h = .AddItem(100.27)
.FormatCell(h,0) = "(value format '') + ' <fgcolor=808080>(default)'"
h = .AddItem(100.27)
.FormatCell(h,0) = "(value format '|;') + ' <fgcolor=808080>(decimal separator is <b>;</b>)'"
End With
.EndUpdate()
End With
|
|
681
|
Is it possible to display the numbers using 3 (three) digits
Dim h
With AxGrid1
.BeginUpdate()
.Columns.Add("Def").Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
With .Items
h = .AddItem(100.27)
.FormatCell(h,0) = "(value format '') + ' <fgcolor=808080>(default)'"
h = .AddItem(100.27)
.FormatCell(h,0) = "(value format '3') + ' <fgcolor=808080>(3 digits)'"
h = .AddItem(100.27)
.FormatCell(h,0) = "(value format 2) + ' <fgcolor=808080>(2 digits)'"
h = .AddItem(100.27)
.FormatCell(h,0) = "(value format 1) + ' <fgcolor=808080>(1 digit)'"
End With
.EndUpdate()
End With
|
|
680
|
Is there any option to show the tooltip programmatically
' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxGrid1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_MouseMoveEvent) Handles AxGrid1.MouseMoveEvent
Dim c,hit
With AxGrid1
.ShowToolTip(.get_ItemFromPoint(-1,-1,c,hit),"","8","8")
End With
End Sub
With AxGrid1
.BeginUpdate()
.Columns.Add("Def")
With .Items
.AddItem("Item 1")
.AddItem("Item 2")
.AddItem("Item 3")
End With
.EndUpdate()
End With
|
|
679
|
How can I specify the column's width to be the same for all columns
With AxGrid1
With .Columns
.Add("A")
.Add("B")
.Add("C")
End With
.DrawGridLines = EXGRIDLib.GridLinesEnum.exAllLines
.ColumnAutoResize = True
End With
|
|
678
|
How can I set the column's width to my desired width
With AxGrid1
.ColumnAutoResize = False
With .Columns
.Add("A").Width = 128
.Add("B").Width = 128
End With
.DrawGridLines = EXGRIDLib.GridLinesEnum.exAllLines
End With
|
|
677
|
Is it possible to format numbers
Dim h,h1
With AxGrid1
.BeginUpdate()
.MarkSearchColumn = False
With .Columns
.Add("Name")
With .Add("A")
.SortType = EXGRIDLib.SortTypeEnum.SortNumeric
.AllowSizing = False
.Width = 36
.FormatColumn = "len(value) ? value + ' +'"
.Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
End With
With .Add("B")
.SortType = EXGRIDLib.SortTypeEnum.SortNumeric
.AllowSizing = False
.Width = 36
.FormatColumn = "len(value) ? value + ' +'"
.Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
End With
With .Add("C")
.SortType = EXGRIDLib.SortTypeEnum.SortNumeric
.AllowSizing = False
.Width = 36
.FormatColumn = "len(value) ? value + ' ='"
.Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
End With
With .Add("A+B+C")
.SortType = EXGRIDLib.SortTypeEnum.SortNumeric
.Width = 64
.ComputedField = "dbl(%1)+dbl(%2)+dbl(%3)"
.FormatColumn = "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' ) : (dbl(value)>0 ? '<fgcolor=00" & _
"00FF>+'+(value format '2|.|3|,' ): '0.00') )"
.Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
End With
End With
With .Items
h = .AddItem("Root")
.CellValueFormat(h,4) = EXGRIDLib.ValueFormatEnum.exComputedField
h1 = .InsertItem(h,Nothing,"Child 1")
.CellValue(h1,1) = 7
.CellValue(h1,2) = 3
.CellValue(h1,3) = 1
h1 = .InsertItem(h,Nothing,"Child 2")
.CellValue(h1,1) = -2
.CellValue(h1,2) = -2
.CellValue(h1,3) = -4
h1 = .InsertItem(h,Nothing,"Child 3")
.CellValue(h1,1) = 2
.CellValue(h1,2) = 2
.CellValue(h1,3) = -4
.ExpandItem(h) = True
End With
.EndUpdate()
End With
|
|
676
|
How can I collapse all items
Dim h
With AxGrid1
.BeginUpdate()
.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
.Columns.Add("Items")
With .Items
h = .AddItem("Root 1")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
h = .AddItem("Root 2")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.ExpandItem(0) = False
End With
.EndUpdate()
End With
|
|
675
|
How can I expand all items
Dim h
With AxGrid1
.BeginUpdate()
.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
.Columns.Add("Items")
With .Items
h = .AddItem("Root 1")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
h = .AddItem("Root 2")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.ExpandItem(0) = True
End With
.EndUpdate()
End With
|
|
674
|
Can I display a total field without having to add a child item
Dim h
With AxGrid1
.BeginUpdate()
With .Columns.Add("Numbers")
.SortType = EXGRIDLib.SortTypeEnum.SortNumeric
With .Editor
.EditType = EXGRIDLib.EditTypeEnum.SpinType
.Numeric = EXGRIDLib.NumericEnum.exFloat
End With
End With
With .Items
.AddItem(1)
.AddItem(2)
.AddItem(3)
.AddItem(4)
.LockedItemCount(EXGRIDLib.VAlignmentEnum.exBottom) = 1
h = .LockedItem(EXGRIDLib.VAlignmentEnum.exBottom,0)
.CellValue(h,0) = "sum(all,dir,dbl(%0))"
.SortableItem(h) = False
.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exTotalField
.CellHAlignment(h,0) = EXGRIDLib.AlignmentEnum.RightAlignment
.FormatCell(h,0) = "'SUM: '+value"
End With
.EndUpdate()
End With
|
|
673
|
Can I display the number of child items
Dim h,hx
With AxGrid1
.BeginUpdate()
.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exGroupLinesAtRoot
.Columns.Add("")
With .Items
h = .AddItem("Root 1")
hx = .SplitCell(h,0)
.CellValue(0,hx) = "count(current,dir,1)"
.CellValueFormat(0,hx) = EXGRIDLib.ValueFormatEnum.exTotalField
.FormatCell(0,hx) = "'Childs: ' + value"
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.ExpandItem(h) = True
h = .AddItem("Root 2")
hx = .SplitCell(h,0)
.CellValue(0,hx) = "count(current,dir,1)"
.CellValueFormat(0,hx) = EXGRIDLib.ValueFormatEnum.exTotalField
.FormatCell(0,hx) = "'Childs: ' + value"
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.InsertItem(h,Nothing,"Child 3")
.InsertItem(h,Nothing,"Child 4")
End With
.EndUpdate()
End With
|
|
672
|
My field does not display the correctly computed value if I enter data using the control's editors ( concatenation of strings ). What am I doing wrong
Dim h
With AxGrid1
.BeginUpdate()
.Columns.Add("T")
With .Columns.Add("A").Editor
.Numeric = EXGRIDLib.NumericEnum.exInteger
.EditType = EXGRIDLib.EditTypeEnum.SpinType
End With
With .Columns.Add("B").Editor
.Numeric = EXGRIDLib.NumericEnum.exInteger
.EditType = EXGRIDLib.EditTypeEnum.SpinType
End With
.Columns.Add("A+B")
With .Items
h = .AddItem("Incorrect")
.CellToolTip(h,0) = "Just type a number in the column A or B. The result will be concaternated"
.CellValue(h,1) = "10"
.CellValue(h,2) = "20"
.CellValue(h,3) = "currency(%1+%2)"
.CellValueFormat(h,3) = EXGRIDLib.ValueFormatEnum.exComputedField
h = .AddItem("Correct")
.CellValue(h,1) = 10
.CellValue(h,2) = 20
.CellValue(h,3) = "currency(dbl(%1)+dbl(%2))"
.CellValueFormat(h,3) = EXGRIDLib.ValueFormatEnum.exComputedField
End With
.EndUpdate()
End With
|
|
671
|
The CellValue/CellCaption property gets the result of a computed/total field with text formatting. Is it possible to get that value without text formatting
Dim h
With AxGrid1
.BeginUpdate()
.Columns.Add("A").Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
.Columns.Add("B").Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
.Columns.Add("A+B")
With .Items
h = .AddItem(10)
.CellValue(h,1) = 20
.CellValueFormat(h,2) = EXGRIDLib.ValueFormatEnum.exComputedField
.CellValue(h,2) = "currency(dbl(%0)+dbl(%1))"
Debug.Print( "CellCaption returns " )
Debug.Print( .CellCaption(h,2) )
Debug.Print( "CellValue returns " )
Debug.Print( .CellValue(h,2) )
Debug.Print( "ComputeValue returns " )
Debug.Print( .ComputeValue("dbl(%0)+dbl(%1)",h,0,.CellValueFormat(h,2)) )
End With
.EndUpdate()
End With
|
|
670
|
Can I get the result of a specified formula as your control does using the ComputedField property
Dim h
With AxGrid1
.BeginUpdate()
.Columns.Add("A")
.Columns.Add("B")
With .Items
h = .AddItem(10)
.CellValue(h,1) = 20
Debug.Print( "A+B is " )
Debug.Print( .ComputeValue("dbl(%0)+dbl(%1)",h,0,2) )
End With
.EndUpdate()
End With
|
|
669
|
Is it possible to get the text without HTML formatting
Dim h
With AxGrid1
.BeginUpdate()
.Columns.Add("")
With .Items
h = .AddItem("<b>bold</b>")
Debug.Print( .ComputeValue(.CellValue(h,0),h,0,1) )
End With
.EndUpdate()
End With
|
|
668
|
Can I specify an item to be a separator
Dim h
With AxGrid1
.BeginUpdate()
.TreeColumnIndex = -1
.SortOnClick = EXGRIDLib.SortOnClickEnum.exNoSort
.Columns.Add("Numbers")
With .Items
.AddItem(1)
.AddItem(2)
h = .AddItem("separator")
.SelectableItem(h) = False
.ItemDivider(h) = 0
.ItemDividerLineAlignment(h) = EXGRIDLib.DividerAlignmentEnum.DividerCenter
.ItemDividerLine(h) = EXGRIDLib.DividerLineEnum.ThinLine
.CellHAlignment(h,0) = EXGRIDLib.AlignmentEnum.CenterAlignment
.AddItem(3)
.AddItem(4)
End With
.EndUpdate()
End With
|
|
667
|
How can I count only non-zero values
Dim h
With AxGrid1
.BeginUpdate()
.Columns.Add("Numbers").SortType = EXGRIDLib.SortTypeEnum.SortNumeric
With .Items
.AddItem(1)
.AddItem(2)
.AddItem(0)
.AddItem(0)
.AddItem(0)
.AddItem(0)
.AddItem(3)
.AddItem(4)
h = .AddItem("sum(all,dir,dbl(%0)?1:0)")
.SortableItem(h) = False
.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exTotalField
.CellHAlignment(h,0) = EXGRIDLib.AlignmentEnum.RightAlignment
.FormatCell(h,0) = "'COUNT non-zero: '+value"
End With
.EndUpdate()
End With
|
|
666
|
How can I add a AVG ( average ) field
Dim h
With AxGrid1
.BeginUpdate()
.Columns.Add("Numbers").SortType = EXGRIDLib.SortTypeEnum.SortNumeric
With .Items
.AddItem(1)
.AddItem(2)
.AddItem(3)
.AddItem(4)
h = .AddItem("avg(all,dir,dbl(%0))")
.SortableItem(h) = False
.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exTotalField
.CellHAlignment(h,0) = EXGRIDLib.AlignmentEnum.RightAlignment
.FormatCell(h,0) = "'AVG: '+value"
End With
.EndUpdate()
End With
|
|
665
|
How can I add a COUNT field
Dim h
With AxGrid1
.BeginUpdate()
.Columns.Add("Numbers").SortType = EXGRIDLib.SortTypeEnum.SortNumeric
With .Items
.AddItem(1)
.AddItem(2)
.AddItem(3)
.AddItem(4)
h = .AddItem("count(all,dir,0)")
.SortableItem(h) = False
.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exTotalField
.CellHAlignment(h,0) = EXGRIDLib.AlignmentEnum.RightAlignment
.FormatCell(h,0) = "'COUNT: '+value"
End With
.EndUpdate()
End With
|
|
664
|
How can I add a MAX field
Dim h
With AxGrid1
.BeginUpdate()
.Columns.Add("Numbers").SortType = EXGRIDLib.SortTypeEnum.SortNumeric
With .Items
.AddItem(1)
.AddItem(2)
.AddItem(3)
.AddItem(4)
h = .AddItem("max(all,dir,dbl(%0))")
.SortableItem(h) = False
.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exTotalField
.CellHAlignment(h,0) = EXGRIDLib.AlignmentEnum.RightAlignment
.FormatCell(h,0) = "'MAX: '+value"
End With
.EndUpdate()
End With
|
|
663
|
How can I add a MIN or MAX field (for numbers)
Dim h
With AxGrid1
.BeginUpdate()
.Columns.Add("Numbers").SortType = EXGRIDLib.SortTypeEnum.SortNumeric
With .Items
.AddItem(11)
.AddItem(21)
.AddItem(3)
.AddItem(4)
h = .AddItem("min(all,dir,dbl(%0))")
.SortableItem(h) = False
.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exTotalField
.CellHAlignment(h,0) = EXGRIDLib.AlignmentEnum.RightAlignment
.FormatCell(h,0) = "'MIN: '+value"
h = .AddItem("max(all,dir,dbl(%0))")
.SortableItem(h) = False
.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exTotalField
.CellHAlignment(h,0) = EXGRIDLib.AlignmentEnum.RightAlignment
.FormatCell(h,0) = "'MAX: '+value"
End With
.EndUpdate()
End With
|
|
662
|
How can I add a SUM field
Dim h
With AxGrid1
.BeginUpdate()
.Columns.Add("Numbers").SortType = EXGRIDLib.SortTypeEnum.SortNumeric
With .Items
.AddItem(1)
.AddItem(2)
.AddItem(3)
.AddItem(4)
h = .AddItem("sum(all,dir,dbl(%0))")
.SortableItem(h) = False
.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exTotalField
.CellHAlignment(h,0) = EXGRIDLib.AlignmentEnum.RightAlignment
.FormatCell(h,0) = "'SUM: '+value"
End With
.EndUpdate()
End With
|
|
661
|
How can I add total and subtotals fields
' Change event - Occurs when the user changes the cell's content.
Private Sub AxGrid1_Change(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ChangeEvent) Handles AxGrid1.Change
With AxGrid1
.Refresh()
End With
End Sub
Dim h
With AxGrid1
.BeginUpdate()
.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exGroupLinesAtRoot
.Columns.Add("Members")
With .Columns.Add("Values")
.FormatColumn = "currency(value)"
With .Editor
.EditType = EXGRIDLib.EditTypeEnum.SpinType
.Numeric = EXGRIDLib.NumericEnum.exInteger
End With
End With
With .Items
h = .AddItem("Group 1")
.ItemBold(h) = True
.CellEditorVisible(h,1) = EXGRIDLib.EditorVisibleEnum.exEditorHidden
.CellValue(h,1) = "sum(current,dir,dbl(%1))"
.CellValueFormat(h,1) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
.CellHAlignment(h,1) = EXGRIDLib.AlignmentEnum.RightAlignment
.CellValue(.InsertItem(h,Nothing,"Child 1"),1) = 10
.CellValue(.InsertItem(h,Nothing,"Child 2"),1) = 20
.CellValue(.InsertItem(h,Nothing,"Child 3"),1) = 30
.ExpandItem(h) = True
h = .AddItem("Group 2")
.ItemBold(h) = True
.CellEditorVisible(h,1) = EXGRIDLib.EditorVisibleEnum.exEditorHidden
.CellValue(h,1) = "sum(current,dir,dbl(%1))"
.CellValueFormat(h,1) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
.CellHAlignment(h,1) = EXGRIDLib.AlignmentEnum.RightAlignment
.CellValue(.InsertItem(h,Nothing,"Child 1"),1) = 5
.CellValue(.InsertItem(h,Nothing,"Child 2"),1) = 15
.CellValue(.InsertItem(h,Nothing,"Child 3"),1) = 35
h = .AddItem("total")
.CellValue(h,1) = "sum(all,rec,dbl(%1))"
.CellValueFormat(h,1) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
.CellEditorVisible(h,1) = EXGRIDLib.EditorVisibleEnum.exEditorHidden
.FormatCell(h,1) = "'Total: <b>' + currency(value)"
.CellHAlignment(h,1) = EXGRIDLib.AlignmentEnum.RightAlignment
.ItemDivider(h) = 1
.ItemDividerLineAlignment(h) = EXGRIDLib.DividerAlignmentEnum.DividerCenter
.ItemDividerLine(h) = EXGRIDLib.DividerLineEnum.DoubleLine
.SortableItem(h) = False
End With
.EndUpdate()
End With
|
|
660
|
Is is possible to have subtotal items, and a grand total item
' Change event - Occurs when the user changes the cell's content.
Private Sub AxGrid1_Change(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ChangeEvent) Handles AxGrid1.Change
With AxGrid1
.Refresh()
End With
End Sub
Dim h,hT
With AxGrid1
.BeginUpdate()
.BackColor = RGB(255,255,255)
.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exGroupLinesAtRoot
.ShowFocusRect = False
.Columns.Add("Members")
With .Columns.Add("Values")
.FormatColumn = "currency(value)"
With .Editor
.EditType = EXGRIDLib.EditTypeEnum.SpinType
.Numeric = EXGRIDLib.NumericEnum.exInteger
End With
End With
With .Items
h = .AddItem("Group 1")
.ItemBold(h) = True
.SortableItem(h) = False
.CellEditorVisible(h,1) = EXGRIDLib.EditorVisibleEnum.exEditorHidden
.FormatCell(h,1) = " "
.CellValue(.InsertItem(h,Nothing,"Child 1"),1) = 10
.CellValue(.InsertItem(h,Nothing,"Child 2"),1) = 20
.CellValue(.InsertItem(h,Nothing,"Child 3"),1) = 30
hT = .InsertItem(h,Nothing,"subtotal")
.CellHAlignment(hT,1) = EXGRIDLib.AlignmentEnum.RightAlignment
.CellEditorVisible(hT,1) = EXGRIDLib.EditorVisibleEnum.exEditorHidden
.CellValue(hT,1) = "sum(parent,dir,dbl(%1))"
.CellValueFormat(hT,1) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
.FormatCell(hT,1) = "'subtotal: <b>' + currency(value)"
.ItemDivider(hT) = 1
.ItemDividerLineAlignment(hT) = EXGRIDLib.DividerAlignmentEnum.DividerCenter
.SortableItem(hT) = False
.SelectableItem(hT) = False
.ItemDividerLine(hT) = EXGRIDLib.DividerLineEnum.DotLine
.ExpandItem(h) = True
h = .AddItem("Group 2")
.ItemBold(h) = True
.SortableItem(h) = False
.FormatCell(h,1) = " "
.CellEditorVisible(h,1) = EXGRIDLib.EditorVisibleEnum.exEditorHidden
.CellValue(.InsertItem(h,Nothing,"Child 1"),1) = 15
.CellValue(.InsertItem(h,Nothing,"Child 2"),1) = 25
.CellValue(.InsertItem(h,Nothing,"Child 3"),1) = 18
hT = .InsertItem(h,Nothing,"subtotal")
.CellHAlignment(hT,1) = EXGRIDLib.AlignmentEnum.RightAlignment
.CellEditorVisible(hT,1) = EXGRIDLib.EditorVisibleEnum.exEditorHidden
.CellValue(hT,1) = "sum(parent,dir,dbl(%1))"
.CellValueFormat(hT,1) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
.FormatCell(hT,1) = "'subtotal: <b>' + currency(value)"
.ItemDivider(hT) = 1
.ItemDividerLineAlignment(hT) = EXGRIDLib.DividerAlignmentEnum.DividerCenter
.ItemDividerLine(hT) = EXGRIDLib.DividerLineEnum.DotLine
.SortableItem(hT) = False
.SelectableItem(hT) = False
.ExpandItem(h) = True
h = .AddItem("total")
.CellValue(h,1) = "sum(all,rec,dbl(%1))"
.CellValueFormat(h,1) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
.CellEditorVisible(h,1) = EXGRIDLib.EditorVisibleEnum.exEditorHidden
.FormatCell(h,1) = "'Total: <b><font ;11>' + currency(value)"
.CellHAlignment(h,1) = EXGRIDLib.AlignmentEnum.CenterAlignment
.ItemDivider(h) = 1
.ItemDividerLineAlignment(h) = EXGRIDLib.DividerAlignmentEnum.DividerCenter
.ItemDividerLine(h) = EXGRIDLib.DividerLineEnum.DoubleLine
.SortableItem(h) = False
.SelectableItem(h) = False
End With
.EndUpdate()
End With
|
|
659
|
Is it possible to have a total field for each column
' Change event - Occurs when the user changes the cell's content.
Private Sub AxGrid1_Change(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ChangeEvent) Handles AxGrid1.Change
With AxGrid1
.Refresh()
End With
End Sub
Dim h
With AxGrid1
.BeginUpdate()
With .Columns.Add("C1")
With .Editor
.Numeric = EXGRIDLib.NumericEnum.exInteger
.EditType = EXGRIDLib.EditTypeEnum.SpinType
End With
.SortType = EXGRIDLib.SortTypeEnum.SortNumeric
End With
With .Columns.Add("C2")
With .Editor
.Numeric = EXGRIDLib.NumericEnum.exInteger
.EditType = EXGRIDLib.EditTypeEnum.SpinType
End With
.SortType = EXGRIDLib.SortTypeEnum.SortNumeric
End With
With .Items
.LockedItemCount(EXGRIDLib.VAlignmentEnum.exBottom) = 1
h = .LockedItem(EXGRIDLib.VAlignmentEnum.exBottom,0)
.ItemBackColor(h) = RGB(240,240,240)
.ItemBold(h) = True
.CellValue(h,0) = "sum(all,dir,dbl(%0))"
.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exTotalField
.CellValue(h,1) = "sum(all,dir,dbl(%1))"
.CellValueFormat(h,1) = EXGRIDLib.ValueFormatEnum.exTotalField
End With
With .Items
.CellValue(.AddItem(10),1) = 12
.CellValue(.AddItem(25),1) = 5
.CellValue(.AddItem(31),1) = 17
.CellValue(.AddItem(48),1) = 22
End With
.EndUpdate()
End With
|
|
658
|
How can I add a total field for a DataSource being used
' Change event - Occurs when the user changes the cell's content.
Private Sub AxGrid1_Change(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ChangeEvent) Handles AxGrid1.Change
With AxGrid1
.Refresh()
End With
End Sub
Dim h,rs
With AxGrid1
.ColumnAutoResize = False
.ContinueColumnScroll = False
rs = CreateObject("ADOR.Recordset")
With rs
.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
End With
.DataSource = rs
With .Items
.LockedItemCount(EXGRIDLib.VAlignmentEnum.exTop) = 1
h = .LockedItem(EXGRIDLib.VAlignmentEnum.exTop,0)
.ItemDivider(h) = 0
.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
.CellValue(h,0) = "sum(all,dir,%1)"
End With
End With
|
|
657
|
How can I add a total field
' Change event - Occurs when the user changes the cell's content.
Private Sub AxGrid1_Change(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ChangeEvent) Handles AxGrid1.Change
With AxGrid1
.Refresh()
End With
End Sub
Dim h
With AxGrid1
.BeginUpdate()
With .Columns.Add("Numbers")
With .Editor
.Numeric = EXGRIDLib.NumericEnum.exInteger
.EditType = EXGRIDLib.EditTypeEnum.SpinType
End With
.SortType = EXGRIDLib.SortTypeEnum.SortNumeric
End With
With .Items
.LockedItemCount(EXGRIDLib.VAlignmentEnum.exTop) = 1
h = .LockedItem(EXGRIDLib.VAlignmentEnum.exTop,0)
.ItemBackColor(h) = RGB(240,240,240)
.CellValue(h,0) = "sum(all,dir,dbl(%0))"
.CellValueFormat(h,0) = EXGRIDLib.ValueFormatEnum.exTotalField
.CellHAlignment(h,0) = EXGRIDLib.AlignmentEnum.RightAlignment
.FormatCell(h,0) = "'Total: '+value"
End With
With .Items
.AddItem(10)
.AddItem(25)
.AddItem(31)
.AddItem(48)
End With
.EndUpdate()
End With
|
|
656
|
How can I add a total field
' Change event - Occurs when the user changes the cell's content.
Private Sub AxGrid1_Change(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ChangeEvent) Handles AxGrid1.Change
With AxGrid1
.Refresh()
End With
End Sub
Dim h,hT
With AxGrid1
.BeginUpdate()
With .Columns.Add("Items").Editor
.EditType = EXGRIDLib.EditTypeEnum.SpinType
.Numeric = EXGRIDLib.NumericEnum.exInteger
End With
With .Items
h = .AddItem("Group 1")
.CellEditorVisible(h,0) = EXGRIDLib.EditorVisibleEnum.exEditorHidden
.InsertItem(h,Nothing,10)
.InsertItem(h,Nothing,20)
.InsertItem(h,Nothing,30)
hT = .InsertItem(h,Nothing,"sum(parent,dir,dbl(%0))")
.CellEditorVisible(hT,0) = EXGRIDLib.EditorVisibleEnum.exEditorHidden
.CellValueFormat(hT,0) = EXGRIDLib.ValueFormatEnum.exTotalField Or EXGRIDLib.ValueFormatEnum.exHTML
.ItemDivider(hT) = 0
.ItemDividerLineAlignment(hT) = EXGRIDLib.DividerAlignmentEnum.DividerTop
.SelectableItem(hT) = False
.SortableItem(hT) = False
.ExpandItem(h) = True
End With
.EndUpdate()
End With
|
|
655
|
Is it possible to specify the cell's value but still want to display some formatted text instead the value
Dim h
With AxGrid1
.BeginUpdate()
.Columns.Add("Value")
.Columns.Add("FormatCell")
With .Items
h = .AddItem(1)
.CellValue(h,1) = 12
.FormatCell(h,1) = "currency(value)"
h = .AddItem(#1/1/2001#)
.CellValue(h,1) = #1/1/2001#
.CellValueFormat(h,1) = EXGRIDLib.ValueFormatEnum.exHTML
.FormatCell(h,1) = "longdate(value) replace '2001' with '<b>2001</b>'"
End With
.EndUpdate()
End With
|
|
654
|
How can I simulate displaying groups
Dim h,h1
With AxGrid1
.HasLines = EXGRIDLib.HierarchyLineEnum.exNoLine
.ScrollBySingleLine = True
With .Columns
.Add("Name")
.Add("A")
.Add("B")
.Add("C")
End With
With .Items
h = .AddItem("Group 1")
.CellHAlignment(h,0) = EXGRIDLib.AlignmentEnum.CenterAlignment
.ItemDivider(h) = 0
.ItemDividerLineAlignment(h) = EXGRIDLib.DividerAlignmentEnum.DividerBoth
.ItemHeight(h) = 24
.SortableItem(h) = False
h1 = .InsertItem(h,Nothing,"Child 1")
.CellValue(h1,1) = 1
.CellValue(h1,2) = 2
.CellValue(h1,3) = 3
h1 = .InsertItem(h,Nothing,"Child 2")
.CellValue(h1,1) = 4
.CellValue(h1,2) = 5
.CellValue(h1,3) = 6
.ExpandItem(h) = True
h = .AddItem("Group 2")
.CellHAlignment(h,0) = EXGRIDLib.AlignmentEnum.CenterAlignment
.ItemDivider(h) = 0
.ItemDividerLineAlignment(h) = EXGRIDLib.DividerAlignmentEnum.DividerBoth
.ItemHeight(h) = 24
.SortableItem(h) = False
h1 = .InsertItem(h,Nothing,"Child 1")
.CellValue(h1,1) = 1
.CellValue(h1,2) = 2
.CellValue(h1,3) = 3
h1 = .InsertItem(h,Nothing,"Child 2")
.CellValue(h1,1) = 4
.CellValue(h1,2) = 5
.CellValue(h1,3) = 6
.ExpandItem(h) = True
End With
End With
|
|
653
|
Is it possible to specify the cell's value but still want to display some formatted text instead the value
Dim h
With AxGrid1
.BeginUpdate()
.MarkSearchColumn = False
With .Columns
.Add("Name")
With .Add("Values")
.SortType = EXGRIDLib.SortTypeEnum.SortNumeric
.AllowSizing = False
.Width = 64
.FormatColumn = "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)"
.Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
End With
End With
With .Items
h = .AddItem("Root")
.FormatCell(h,1) = "'<none>'"
.CellValue(.InsertItem(h,Nothing,"Child 1"),1) = 10
.CellValue(.InsertItem(h,Nothing,"Child 2"),1) = 15
.CellValue(.InsertItem(h,Nothing,"Child 3"),1) = 25
.ExpandItem(h) = True
End With
.EndUpdate()
End With
|
|
652
|
I am using the FormatColumn to display the current currency, but would like hide some values. Is it possible
Dim h
With AxGrid1
.BeginUpdate()
.MarkSearchColumn = False
With .Columns
.Add("Name")
With .Add("Values")
.SortType = EXGRIDLib.SortTypeEnum.SortNumeric
.AllowSizing = False
.Width = 64
.FormatColumn = "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)"
.Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
End With
End With
With .Items
h = .AddItem("Root")
.FormatCell(h,1) = " "
.CellValue(.InsertItem(h,Nothing,"Child 1"),1) = 10
.CellValue(.InsertItem(h,Nothing,"Child 2"),1) = 15
.CellValue(.InsertItem(h,Nothing,"Child 3"),1) = 25
.ExpandItem(h) = True
End With
.EndUpdate()
End With
|
|
651
|
How can I specify an item to be always the first item
Dim h
With AxGrid1
.BeginUpdate()
.TreeColumnIndex = -1
.Columns.Add("Numbers").SortType = EXGRIDLib.SortTypeEnum.SortNumeric
With .Items
.AddItem(1)
.AddItem(2)
.AddItem(3)
.AddItem(4)
h = .AddItem("first")
.ItemPosition(h) = 0
.CellHAlignment(h,0) = EXGRIDLib.AlignmentEnum.RightAlignment
.SortableItem(h) = False
.SortChildren(0,0,False)
End With
.EndUpdate()
End With
|
|
650
|
How can I specify an item to be always the last item
Dim h
With AxGrid1
.BeginUpdate()
.TreeColumnIndex = -1
.Columns.Add("Numbers").SortType = EXGRIDLib.SortTypeEnum.SortNumeric
With .Items
.AddItem(1)
.AddItem(2)
.AddItem(3)
.AddItem(4)
h = .AddItem("last")
.CellHAlignment(h,0) = EXGRIDLib.AlignmentEnum.RightAlignment
.SortableItem(h) = False
.SortChildren(0,0,True)
End With
.EndUpdate()
End With
|
|
649
|
Can I allow sorting only the child items
Dim h
With AxGrid1
.BeginUpdate()
.Columns.Add("Childs")
With .Items
h = .AddItem("Root 1")
.SortableItem(h) = False
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.ExpandItem(h) = True
h = .AddItem("Root 2")
.SortableItem(h) = False
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.ExpandItem(h) = True
End With
.EndUpdate()
End With
|
|
648
|
Can I specify a terminal item so it will mark the end of childs
Dim h
With AxGrid1
.BeginUpdate()
.ScrollBySingleLine = True
.Columns.Add("P1")
With .Items
h = .AddItem("Root 1")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.ExpandItem(h) = True
h = .InsertItem(h,"","")
.ItemDivider(h) = 0
.ItemDividerLineAlignment(h) = EXGRIDLib.DividerAlignmentEnum.DividerCenter
.ItemHeight(h) = 2
.SelectableItem(h) = False
.SortableItem(h) = False
h = .AddItem("Root 2")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.ExpandItem(h) = True
h = .InsertItem(h,"","")
.ItemDivider(h) = 0
.ItemDividerLineAlignment(h) = EXGRIDLib.DividerAlignmentEnum.DividerCenter
.ItemHeight(h) = 2
.SelectableItem(h) = False
.SortableItem(h) = False
End With
.EndUpdate()
End With
|
|
647
|
Is it possible to specify an item being unsortable so its position won't be changed after sorting
Dim h
With AxGrid1
.BeginUpdate()
.TreeColumnIndex = -1
.Columns.Add("Numbers").SortType = EXGRIDLib.SortTypeEnum.SortNumeric
With .Items
.AddItem(1)
.AddItem(2)
.AddItem(3)
.AddItem(4)
h = .AddItem("top 3")
.ItemPosition(h) = 3
.CellHAlignment(h,0) = EXGRIDLib.AlignmentEnum.RightAlignment
.SortableItem(h) = False
.SortChildren(0,0,False)
End With
.EndUpdate()
End With
|
|
646
|
Is it possible to move an item from a parent to another
With AxGrid1
.BeginUpdate()
.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
.Columns.Add("Items")
With .Items
.AddItem("A")
.AddItem("B")
.InsertItem(.AddItem("C"),"","D")
.SetParent(.FindItem("D",0),.FindItem("A",0))
End With
.EndUpdate()
End With
|
|
645
|
How can I change the identation for an item
With AxGrid1
.BeginUpdate()
.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
.Columns.Add("Items")
With .Items
.AddItem("A")
.AddItem("B")
.InsertItem(.AddItem("C"),"","D")
.SetParent(.FindItem("D",0),0)
End With
.EndUpdate()
End With
|
|
644
|
How can I arrange the control's header on multiple levels
Dim h
With AxGrid1
.BeginUpdate()
.DefaultItemHeight = 48
With .Columns
.Add("Title").Visible = False
.Add("FirstName").Visible = False
.Add("LastName").Visible = False
.Add("Photo").Visible = False
With .Add("Address")
.Visible = False
.Def(EXGRIDLib.DefColumnEnum.exCellSingleLine) = False
End With
With .Add("Personal Info")
.FormatLevel = "3:48,(0/1/2),4:96"
.Def(EXGRIDLib.DefColumnEnum.exCellFormatLevel) = "3:48,(0/1/2),4:96"
End With
End With
With .Items
h = .AddItem("Sales Representative")
.CellValue(h,1) = "Nancy"
.CellValue(h,2) = "Davolio"
.CellPicture(h,3) = AxGrid1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.CellValue(h,4) = "507-20th Ave. E.Apt. 2A"
End With
.EndUpdate()
End With
|
|
643
|
How can I filter programatically using more columns
With AxGrid1
.BeginUpdate()
With .Columns
.Add("Car")
.Add("Equipment")
End With
With .Items
.CellValue(.AddItem("Mazda"),1) = "Air Bag"
.CellValue(.AddItem("Toyota"),1) = "Air Bag,Air condition"
.CellValue(.AddItem("Ford"),1) = "Air condition"
.CellValue(.AddItem("Nissan"),1) = "Air Bag,ABS,ESP"
.CellValue(.AddItem("Mazda"),1) = "Air Bag, ABS,ESP"
.CellValue(.AddItem("Mazda"),1) = "ABS,ESP"
End With
With .Columns.Item("Car")
.FilterType = EXGRIDLib.FilterTypeEnum.exFilter
.Filter = "Mazda"
End With
With .Columns.Item("Equipment")
.FilterType = EXGRIDLib.FilterTypeEnum.exPattern
.Filter = "*ABS*|*ESP*"
End With
.ApplyFilter()
.EndUpdate()
End With
|
|
642
|
How can I show the ticks for a single slider field
With AxGrid1
.BeginUpdate()
.Columns.Add("Slider").Editor.EditType = EXGRIDLib.EditTypeEnum.SliderType
With .Items
.AddItem(10)
With .CellEditor(.AddItem(20),0)
.EditType = EXGRIDLib.EditTypeEnum.SliderType
.Option(EXGRIDLib.EditorOptionEnum.exSliderTickFrequency) = 10
End With
.AddItem(30)
End With
.EndUpdate()
End With
|
|
641
|
Is it possible to show ticks for slider fields
With AxGrid1
With .Columns.Add("Slider").Editor
.EditType = EXGRIDLib.EditTypeEnum.SliderType
.Option(EXGRIDLib.EditorOptionEnum.exSliderTickFrequency) = 10
End With
.Items.AddItem(10)
End With
|
|
640
|
Is it possible to colour a particular column, I mean the cell's foreground color
With AxGrid1
.BeginUpdate()
With .ConditionalFormats.Add("1")
.ForeColor = RGB(255,0,0)
.ApplyTo = &H1
End With
.MarkSearchColumn = False
With .Columns
.Add("Column 1")
.Add("Column 2")
End With
With .Items
.CellValue(.AddItem(0),1) = 1
.CellValue(.AddItem(2),1) = 3
.CellValue(.AddItem(4),1) = 5
End With
.EndUpdate()
End With
|
|
639
|
Is it possible to colour a particular column for specified values
With AxGrid1
.BeginUpdate()
With .ConditionalFormats.Add("int(%1) in (3,4,5)")
.BackColor = RGB(255,0,0)
.ApplyTo = &H1
End With
.MarkSearchColumn = False
With .Columns
.Add("Column 1")
.Add("Column 2")
End With
With .Items
.CellValue(.AddItem(0),1) = 1
.CellValue(.AddItem(2),1) = 3
.CellValue(.AddItem(4),1) = 5
End With
.EndUpdate()
End With
|
|
638
|
Is it possible to colour a particular column
With AxGrid1
.BeginUpdate()
.MarkSearchColumn = False
With .Columns
.Add("Column 1")
.Add("Column 2").Def(EXGRIDLib.DefColumnEnum.exCellBackColor) = 255
End With
With .Items
.CellValue(.AddItem(0),1) = 1
.CellValue(.AddItem(2),1) = 3
.CellValue(.AddItem(4),1) = 5
End With
.EndUpdate()
End With
|
|
637
|
How do i get all the children items that are under a certain parent Item handle
Dim h,hChild
With AxGrid1
.BeginUpdate()
.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
.Columns.Add("P")
With .Items
h = .AddItem("Root")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.ExpandItem(h) = True
End With
With .Items
hChild = .ItemChild(.FirstVisibleItem)
Debug.Print( .CellValue(hChild,0) )
Debug.Print( .CellValue(.NextSiblingItem(hChild),0) )
End With
.EndUpdate()
End With
|
|
636
|
Is is possible to use HTML tags to display in the filter caption
With AxGrid1
.BeginUpdate()
.FilterBarPromptVisible = EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarCaption = "This is a bit of text being displayed in the filter bar."
.Columns.Add("")
With .Items
.AddItem("Item 1")
.AddItem("Item 2")
.AddItem("Item 3")
End With
.EndUpdate()
End With
|
|
635
|
How can I find the number of items after filtering
Dim h
With AxGrid1
.BeginUpdate()
.Columns.Add("")
With .Items
h = .AddItem("")
.CellValue(h,0) = .VisibleItemCount
End With
.EndUpdate()
End With
|
|
634
|
How can I change the filter caption
Dim h0
With AxGrid1
.BeginUpdate()
.ColumnAutoResize = True
.ContinueColumnScroll = False
.FocusColumnIndex = 1
.MarkSearchColumn = False
.SearchColumnIndex = 1
.FilterBarPromptVisible = EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPromptType = EXGRIDLib.FilterPromptEnum.exFilterPromptWords Or EXGRIDLib.FilterPromptEnum.exFilterPromptContainsAll
.FilterBarPromptPattern = "london robert"
.FilterBarCaption = "<r>Found: ... "
With .Columns
.Add("Name").Width = 96
.Add("Title").Width = 96
.Add("City")
End With
With .Items
h0 = .AddItem("Nancy Davolio")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Seattle"
h0 = .AddItem("Andrew Fuller")
.CellValue(h0,1) = "Vice President, Sales"
.CellValue(h0,2) = "Tacoma"
.SelectItem(h0) = True
h0 = .AddItem("Janet Leverling")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Kirkland"
h0 = .AddItem("Margaret Peacock")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Redmond"
h0 = .AddItem("Steven Buchanan")
.CellValue(h0,1) = "Sales Manager"
.CellValue(h0,2) = "London"
h0 = .AddItem("Michael Suyama")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
h0 = .AddItem("Robert King")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
h0 = .AddItem("Laura Callahan")
.CellValue(h0,1) = "Inside Sales Coordinator"
.CellValue(h0,2) = "Seattle"
h0 = .AddItem("Anne Dodsworth")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
End With
.EndUpdate()
End With
|
|
633
|
While using the filter prompt is it is possible to use wild characters
Dim h0
With AxGrid1
.BeginUpdate()
.ColumnAutoResize = True
.ContinueColumnScroll = False
.FocusColumnIndex = 1
.MarkSearchColumn = False
.SearchColumnIndex = 1
.FilterBarPromptVisible = EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPromptType = EXGRIDLib.FilterPromptEnum.exFilterPromptPattern
.FilterBarPromptPattern = "lon* seat*"
With .Columns
.Add("Name").Width = 96
.Add("Title").Width = 96
.Add("City")
End With
With .Items
h0 = .AddItem("Nancy Davolio")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Seattle"
h0 = .AddItem("Andrew Fuller")
.CellValue(h0,1) = "Vice President, Sales"
.CellValue(h0,2) = "Tacoma"
.SelectItem(h0) = True
h0 = .AddItem("Janet Leverling")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Kirkland"
h0 = .AddItem("Margaret Peacock")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Redmond"
h0 = .AddItem("Steven Buchanan")
.CellValue(h0,1) = "Sales Manager"
.CellValue(h0,2) = "London"
h0 = .AddItem("Michael Suyama")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
h0 = .AddItem("Robert King")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
h0 = .AddItem("Laura Callahan")
.CellValue(h0,1) = "Inside Sales Coordinator"
.CellValue(h0,2) = "Seattle"
h0 = .AddItem("Anne Dodsworth")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
End With
.EndUpdate()
End With
|
|
632
|
How can I list all items that contains any of specified words, not necessary at the beggining
Dim h0
With AxGrid1
.BeginUpdate()
.ColumnAutoResize = True
.ContinueColumnScroll = False
.FocusColumnIndex = 1
.MarkSearchColumn = False
.SearchColumnIndex = 1
.FilterBarPromptVisible = EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPromptType = EXGRIDLib.FilterPromptEnum.exFilterPromptStartWords Or EXGRIDLib.FilterPromptEnum.exFilterPromptContainsAny
.FilterBarPromptPattern = "london davolio"
With .Columns
.Add("Name").Width = 96
.Add("Title").Width = 96
.Add("City")
End With
With .Items
h0 = .AddItem("Nancy Davolio")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Seattle"
h0 = .AddItem("Andrew Fuller")
.CellValue(h0,1) = "Vice President, Sales"
.CellValue(h0,2) = "Tacoma"
.SelectItem(h0) = True
h0 = .AddItem("Janet Leverling")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Kirkland"
h0 = .AddItem("Margaret Peacock")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Redmond"
h0 = .AddItem("Steven Buchanan")
.CellValue(h0,1) = "Sales Manager"
.CellValue(h0,2) = "London"
h0 = .AddItem("Michael Suyama")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
h0 = .AddItem("Robert King")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
h0 = .AddItem("Laura Callahan")
.CellValue(h0,1) = "Inside Sales Coordinator"
.CellValue(h0,2) = "Seattle"
h0 = .AddItem("Anne Dodsworth")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
End With
.EndUpdate()
End With
|
|
631
|
How can I list all items that contains any of specified words, not strings
Dim h0
With AxGrid1
.BeginUpdate()
.ColumnAutoResize = True
.ContinueColumnScroll = False
.FocusColumnIndex = 1
.MarkSearchColumn = False
.SearchColumnIndex = 1
.FilterBarPromptVisible = EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPromptType = EXGRIDLib.FilterPromptEnum.exFilterPromptWords Or EXGRIDLib.FilterPromptEnum.exFilterPromptContainsAny
.FilterBarPromptPattern = "london nancy"
With .Columns
.Add("Name").Width = 96
.Add("Title").Width = 96
.Add("City")
End With
With .Items
h0 = .AddItem("Nancy Davolio")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Seattle"
h0 = .AddItem("Andrew Fuller")
.CellValue(h0,1) = "Vice President, Sales"
.CellValue(h0,2) = "Tacoma"
.SelectItem(h0) = True
h0 = .AddItem("Janet Leverling")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Kirkland"
h0 = .AddItem("Margaret Peacock")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Redmond"
h0 = .AddItem("Steven Buchanan")
.CellValue(h0,1) = "Sales Manager"
.CellValue(h0,2) = "London"
h0 = .AddItem("Michael Suyama")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
h0 = .AddItem("Robert King")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
h0 = .AddItem("Laura Callahan")
.CellValue(h0,1) = "Inside Sales Coordinator"
.CellValue(h0,2) = "Seattle"
h0 = .AddItem("Anne Dodsworth")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
End With
.EndUpdate()
End With
|
|
630
|
How can I list all items that contains all specified words, not strings
Dim h0
With AxGrid1
.BeginUpdate()
.ColumnAutoResize = True
.ContinueColumnScroll = False
.FocusColumnIndex = 1
.MarkSearchColumn = False
.SearchColumnIndex = 1
.FilterBarPromptVisible = EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPromptType = EXGRIDLib.FilterPromptEnum.exFilterPromptWords Or EXGRIDLib.FilterPromptEnum.exFilterPromptContainsAll
.FilterBarPromptPattern = "london robert"
With .Columns
.Add("Name").Width = 96
.Add("Title").Width = 96
.Add("City")
End With
With .Items
h0 = .AddItem("Nancy Davolio")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Seattle"
h0 = .AddItem("Andrew Fuller")
.CellValue(h0,1) = "Vice President, Sales"
.CellValue(h0,2) = "Tacoma"
.SelectItem(h0) = True
h0 = .AddItem("Janet Leverling")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Kirkland"
h0 = .AddItem("Margaret Peacock")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Redmond"
h0 = .AddItem("Steven Buchanan")
.CellValue(h0,1) = "Sales Manager"
.CellValue(h0,2) = "London"
h0 = .AddItem("Michael Suyama")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
h0 = .AddItem("Robert King")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
h0 = .AddItem("Laura Callahan")
.CellValue(h0,1) = "Inside Sales Coordinator"
.CellValue(h0,2) = "Seattle"
h0 = .AddItem("Anne Dodsworth")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
End With
.EndUpdate()
End With
|
|
629
|
I've noticed that the filtering by prompt is not case sensitive, is is possible to make it case sensitive
Dim h0
With AxGrid1
.BeginUpdate()
.ColumnAutoResize = True
.ContinueColumnScroll = False
.FocusColumnIndex = 1
.MarkSearchColumn = False
.SearchColumnIndex = 1
.FilterBarPromptVisible = EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPromptType = EXGRIDLib.FilterPromptEnum.exFilterPromptCaseSensitive Or EXGRIDLib.FilterPromptEnum.exFilterPromptContainsAny
.FilterBarPromptPattern = "Anne"
With .Columns
.Add("Name").Width = 96
.Add("Title").Width = 96
.Add("City")
End With
With .Items
h0 = .AddItem("Nancy Davolio")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Seattle"
h0 = .AddItem("Andrew Fuller")
.CellValue(h0,1) = "Vice President, Sales"
.CellValue(h0,2) = "Tacoma"
.SelectItem(h0) = True
h0 = .AddItem("Janet Leverling")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Kirkland"
h0 = .AddItem("Margaret Peacock")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Redmond"
h0 = .AddItem("Steven Buchanan")
.CellValue(h0,1) = "Sales Manager"
.CellValue(h0,2) = "London"
h0 = .AddItem("Michael Suyama")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
h0 = .AddItem("Robert King")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
h0 = .AddItem("Laura Callahan")
.CellValue(h0,1) = "Inside Sales Coordinator"
.CellValue(h0,2) = "Seattle"
h0 = .AddItem("Anne Dodsworth")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
End With
.EndUpdate()
End With
|
|
628
|
Is it possible to list only items that ends with any of specified strings
Dim h0
With AxGrid1
.BeginUpdate()
.ColumnAutoResize = True
.ContinueColumnScroll = False
.FocusColumnIndex = 1
.MarkSearchColumn = False
.SearchColumnIndex = 1
.FilterBarPromptVisible = EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPromptType = EXGRIDLib.FilterPromptEnum.exFilterPromptEndWith
.FilterBarPromptColumns = "0"
.FilterBarPromptPattern = "Fuller"
With .Columns
.Add("Name").Width = 96
.Add("Title").Width = 96
.Add("City")
End With
With .Items
h0 = .AddItem("Nancy Davolio")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Seattle"
h0 = .AddItem("Andrew Fuller")
.CellValue(h0,1) = "Vice President, Sales"
.CellValue(h0,2) = "Tacoma"
.SelectItem(h0) = True
h0 = .AddItem("Janet Leverling")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Kirkland"
h0 = .AddItem("Margaret Peacock")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Redmond"
h0 = .AddItem("Steven Buchanan")
.CellValue(h0,1) = "Sales Manager"
.CellValue(h0,2) = "London"
h0 = .AddItem("Michael Suyama")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
h0 = .AddItem("Robert King")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
h0 = .AddItem("Laura Callahan")
.CellValue(h0,1) = "Inside Sales Coordinator"
.CellValue(h0,2) = "Seattle"
h0 = .AddItem("Anne Dodsworth")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
End With
.EndUpdate()
End With
|
|
627
|
Is it possible to list only items that ends with any of specified strings
Dim h0
With AxGrid1
.BeginUpdate()
.ColumnAutoResize = True
.ContinueColumnScroll = False
.FocusColumnIndex = 1
.MarkSearchColumn = False
.SearchColumnIndex = 1
.FilterBarPromptVisible = EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPromptType = EXGRIDLib.FilterPromptEnum.exFilterPromptEndWith
.FilterBarPromptColumns = "0"
.FilterBarPromptPattern = "Fuller"
With .Columns
.Add("Name").Width = 96
.Add("Title").Width = 96
.Add("City")
End With
With .Items
h0 = .AddItem("Nancy Davolio")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Seattle"
h0 = .AddItem("Andrew Fuller")
.CellValue(h0,1) = "Vice President, Sales"
.CellValue(h0,2) = "Tacoma"
.SelectItem(h0) = True
h0 = .AddItem("Janet Leverling")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Kirkland"
h0 = .AddItem("Margaret Peacock")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Redmond"
h0 = .AddItem("Steven Buchanan")
.CellValue(h0,1) = "Sales Manager"
.CellValue(h0,2) = "London"
h0 = .AddItem("Michael Suyama")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
h0 = .AddItem("Robert King")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
h0 = .AddItem("Laura Callahan")
.CellValue(h0,1) = "Inside Sales Coordinator"
.CellValue(h0,2) = "Seattle"
h0 = .AddItem("Anne Dodsworth")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
End With
.EndUpdate()
End With
|
|
626
|
Is it possible to list only items that starts with any of specified strings
Dim h0
With AxGrid1
.BeginUpdate()
.ColumnAutoResize = True
.ContinueColumnScroll = False
.FocusColumnIndex = 1
.MarkSearchColumn = False
.SearchColumnIndex = 1
.FilterBarPromptVisible = EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPromptType = EXGRIDLib.FilterPromptEnum.exFilterPromptStartWith
.FilterBarPromptColumns = "0"
.FilterBarPromptPattern = "An M"
With .Columns
.Add("Name").Width = 96
.Add("Title").Width = 96
.Add("City")
End With
With .Items
h0 = .AddItem("Nancy Davolio")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Seattle"
h0 = .AddItem("Andrew Fuller")
.CellValue(h0,1) = "Vice President, Sales"
.CellValue(h0,2) = "Tacoma"
.SelectItem(h0) = True
h0 = .AddItem("Janet Leverling")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Kirkland"
h0 = .AddItem("Margaret Peacock")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Redmond"
h0 = .AddItem("Steven Buchanan")
.CellValue(h0,1) = "Sales Manager"
.CellValue(h0,2) = "London"
h0 = .AddItem("Michael Suyama")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
h0 = .AddItem("Robert King")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
h0 = .AddItem("Laura Callahan")
.CellValue(h0,1) = "Inside Sales Coordinator"
.CellValue(h0,2) = "Seattle"
h0 = .AddItem("Anne Dodsworth")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
End With
.EndUpdate()
End With
|
|
625
|
Is it possible to list only items that starts with specified string
Dim h0
With AxGrid1
.BeginUpdate()
.ColumnAutoResize = True
.ContinueColumnScroll = False
.FocusColumnIndex = 1
.MarkSearchColumn = False
.SearchColumnIndex = 1
.FilterBarPromptVisible = EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPromptType = EXGRIDLib.FilterPromptEnum.exFilterPromptStartWith
.FilterBarPromptColumns = "0"
.FilterBarPromptPattern = "A"
With .Columns
.Add("Name").Width = 96
.Add("Title").Width = 96
.Add("City")
End With
With .Items
h0 = .AddItem("Nancy Davolio")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Seattle"
h0 = .AddItem("Andrew Fuller")
.CellValue(h0,1) = "Vice President, Sales"
.CellValue(h0,2) = "Tacoma"
.SelectItem(h0) = True
h0 = .AddItem("Janet Leverling")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Kirkland"
h0 = .AddItem("Margaret Peacock")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Redmond"
h0 = .AddItem("Steven Buchanan")
.CellValue(h0,1) = "Sales Manager"
.CellValue(h0,2) = "London"
h0 = .AddItem("Michael Suyama")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
h0 = .AddItem("Robert King")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
h0 = .AddItem("Laura Callahan")
.CellValue(h0,1) = "Inside Sales Coordinator"
.CellValue(h0,2) = "Seattle"
h0 = .AddItem("Anne Dodsworth")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
End With
.EndUpdate()
End With
|
|
624
|
How can I specify that the list should include any of the seqeunces in the pattern
Dim h0
With AxGrid1
.BeginUpdate()
.ColumnAutoResize = True
.ContinueColumnScroll = False
.FocusColumnIndex = 1
.MarkSearchColumn = False
.SearchColumnIndex = 1
.FilterBarPromptVisible = EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPromptType = EXGRIDLib.FilterPromptEnum.exFilterPromptContainsAny
.FilterBarPromptPattern = "london seattle"
With .Columns
.Add("Name").Width = 96
.Add("Title").Width = 96
.Add("City")
End With
With .Items
h0 = .AddItem("Nancy Davolio")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Seattle"
h0 = .AddItem("Andrew Fuller")
.CellValue(h0,1) = "Vice President, Sales"
.CellValue(h0,2) = "Tacoma"
.SelectItem(h0) = True
h0 = .AddItem("Janet Leverling")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Kirkland"
h0 = .AddItem("Margaret Peacock")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Redmond"
h0 = .AddItem("Steven Buchanan")
.CellValue(h0,1) = "Sales Manager"
.CellValue(h0,2) = "London"
h0 = .AddItem("Michael Suyama")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
h0 = .AddItem("Robert King")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
h0 = .AddItem("Laura Callahan")
.CellValue(h0,1) = "Inside Sales Coordinator"
.CellValue(h0,2) = "Seattle"
h0 = .AddItem("Anne Dodsworth")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
End With
.EndUpdate()
End With
|
|
623
|
How can I specify that all sequences in the filter pattern must be included in the list
Dim h0
With AxGrid1
.BeginUpdate()
.ColumnAutoResize = True
.ContinueColumnScroll = False
.FocusColumnIndex = 1
.MarkSearchColumn = False
.SearchColumnIndex = 1
.FilterBarPromptVisible = EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPromptType = EXGRIDLib.FilterPromptEnum.exFilterPromptContainsAll
.FilterBarPromptPattern = "london manager"
With .Columns
.Add("Name").Width = 96
.Add("Title").Width = 96
.Add("City")
End With
With .Items
h0 = .AddItem("Nancy Davolio")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Seattle"
h0 = .AddItem("Andrew Fuller")
.CellValue(h0,1) = "Vice President, Sales"
.CellValue(h0,2) = "Tacoma"
.SelectItem(h0) = True
h0 = .AddItem("Janet Leverling")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Kirkland"
h0 = .AddItem("Margaret Peacock")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Redmond"
h0 = .AddItem("Steven Buchanan")
.CellValue(h0,1) = "Sales Manager"
.CellValue(h0,2) = "London"
h0 = .AddItem("Michael Suyama")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
h0 = .AddItem("Robert King")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
h0 = .AddItem("Laura Callahan")
.CellValue(h0,1) = "Inside Sales Coordinator"
.CellValue(h0,2) = "Seattle"
h0 = .AddItem("Anne Dodsworth")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
End With
.EndUpdate()
End With
|
|
622
|
How do I change at runtime the filter prompt
Dim h0
With AxGrid1
.BeginUpdate()
.ColumnAutoResize = True
.ContinueColumnScroll = False
.FocusColumnIndex = 1
.MarkSearchColumn = False
.SearchColumnIndex = 1
.FilterBarPromptVisible = EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPromptPattern = "london manager"
With .Columns
.Add("Name").Width = 96
.Add("Title").Width = 96
.Add("City")
End With
With .Items
h0 = .AddItem("Nancy Davolio")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Seattle"
h0 = .AddItem("Andrew Fuller")
.CellValue(h0,1) = "Vice President, Sales"
.CellValue(h0,2) = "Tacoma"
.SelectItem(h0) = True
h0 = .AddItem("Janet Leverling")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Kirkland"
h0 = .AddItem("Margaret Peacock")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Redmond"
h0 = .AddItem("Steven Buchanan")
.CellValue(h0,1) = "Sales Manager"
.CellValue(h0,2) = "London"
h0 = .AddItem("Michael Suyama")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
h0 = .AddItem("Robert King")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
h0 = .AddItem("Laura Callahan")
.CellValue(h0,1) = "Inside Sales Coordinator"
.CellValue(h0,2) = "Seattle"
h0 = .AddItem("Anne Dodsworth")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
End With
.EndUpdate()
End With
|
|
621
|
How do I specify to filter only a single column when using the filter prompt
Dim h0
With AxGrid1
.BeginUpdate()
.ColumnAutoResize = True
.ContinueColumnScroll = False
.FocusColumnIndex = 1
.MarkSearchColumn = False
.SearchColumnIndex = 1
.FilterBarPromptVisible = EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPromptColumns = "2,3"
.FilterBarPromptPattern = "london"
With .Columns
.Add("Name").Width = 96
.Add("Title").Width = 96
.Add("City")
End With
With .Items
h0 = .AddItem("Nancy Davolio")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Seattle"
h0 = .AddItem("Andrew Fuller")
.CellValue(h0,1) = "Vice President, Sales"
.CellValue(h0,2) = "Tacoma"
.SelectItem(h0) = True
h0 = .AddItem("Janet Leverling")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Kirkland"
h0 = .AddItem("Margaret Peacock")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Redmond"
h0 = .AddItem("Steven Buchanan")
.CellValue(h0,1) = "Sales Manager"
.CellValue(h0,2) = "London"
h0 = .AddItem("Michael Suyama")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
h0 = .AddItem("Robert King")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
h0 = .AddItem("Laura Callahan")
.CellValue(h0,1) = "Inside Sales Coordinator"
.CellValue(h0,2) = "Seattle"
h0 = .AddItem("Anne Dodsworth")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
End With
.EndUpdate()
End With
|
|
620
|
How do I change the prompt or the caption being displayed in the filter bar
With AxGrid1
.BeginUpdate()
.ColumnAutoResize = True
.ContinueColumnScroll = False
.FocusColumnIndex = 1
.MarkSearchColumn = False
.SearchColumnIndex = 1
.FilterBarPromptVisible = EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPrompt = "changed"
With .Columns
.Add("Name").Width = 96
.Add("Title").Width = 96
.Add("City")
End With
.EndUpdate()
End With
|
|
619
|
How do I enable the filter prompt feature
Dim h0
With AxGrid1
.BeginUpdate()
.ColumnAutoResize = True
.ContinueColumnScroll = False
.FocusColumnIndex = 1
.MarkSearchColumn = False
.SearchColumnIndex = 1
.FilterBarPromptVisible = EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
With .Columns
.Add("Name").Width = 96
.Add("Title").Width = 96
.Add("City")
End With
With .Items
h0 = .AddItem("Nancy Davolio")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Seattle"
h0 = .AddItem("Andrew Fuller")
.CellValue(h0,1) = "Vice President, Sales"
.CellValue(h0,2) = "Tacoma"
.SelectItem(h0) = True
h0 = .AddItem("Janet Leverling")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Kirkland"
h0 = .AddItem("Margaret Peacock")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "Redmond"
h0 = .AddItem("Steven Buchanan")
.CellValue(h0,1) = "Sales Manager"
.CellValue(h0,2) = "London"
h0 = .AddItem("Michael Suyama")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
h0 = .AddItem("Robert King")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
h0 = .AddItem("Laura Callahan")
.CellValue(h0,1) = "Inside Sales Coordinator"
.CellValue(h0,2) = "Seattle"
h0 = .AddItem("Anne Dodsworth")
.CellValue(h0,1) = "Sales Representative"
.CellValue(h0,2) = "London"
End With
.EndUpdate()
End With
|
|
618
|
How can I control the colors that can be applied to an EBN part
' Change event - Occurs when the user changes the cell's content.
Private Sub AxGrid1_Change(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ChangeEvent) Handles AxGrid1.Change
With AxGrid1
With .Items
.ItemBackColor(.FirstVisibleItem) = e.newValue
End With
End With
End Sub
Dim h
With AxGrid1
.BeginUpdate()
With .VisualAppearance
.Add(2,"c:\exontrol\images\normal.ebn")
.Add(1,"CP:2 10 3 -10 -5")
End With
.SelBackColor = .BackColor
.SelForeColor = .ForeColor
.ScrollBySingleLine = True
.TreeColumnIndex = -1
With .Columns
With .Add("Test")
.Width = 32
End With
With .Add("RGB")
With .Editor
.EditType = EXGRIDLib.EditTypeEnum.SliderType
.Option(EXGRIDLib.EditorOptionEnum.exSliderMax) = 255
.Option(EXGRIDLib.EditorOptionEnum.exSliderWidth) = -60
End With
End With
End With
With .Items
h = .AddItem("")
.CellHAlignment(h,0) = EXGRIDLib.AlignmentEnum.CenterAlignment
.ItemDivider(h) = 0
.ItemBackColor(h) = &H1000000
.ItemHeight(h) = 36
.SelectableItem(h) = False
h = .InsertItem(0,1,"Red")
.CellValue(h,1) = 255
h = .InsertItem(0,255,"Green")
.CellValue(h,1) = 255
h = .InsertItem(0,65536,"Blue")
.CellValue(h,1) = 255
End With
.EndUpdate()
End With
|
|
617
|
I know this is fairly basic, but could you send me a sample that places a tree in the first column
Dim h
With AxGrid1
.BeginUpdate()
.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
.Columns.Add("heading")
With .Items
h = .AddItem("Parent 1")
.InsertItem(h,Nothing,"Child A")
.InsertItem(.InsertItem(h,Nothing,"Child B"),Nothing,"GrandChild C")
.ExpandItem(h) = True
h = .AddItem("Parent 2")
.InsertItem(h,Nothing,"Child D")
.InsertItem(h,Nothing,"Child E")
.ExpandItem(h) = True
End With
.EndUpdate()
End With
|
|
616
|
How can I get the caption of focused item
' SelectionChanged event - Fired after a new item has been selected.
Private Sub AxGrid1_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxGrid1.SelectionChanged
With AxGrid1
With .Items
Debug.Print( "Handle" )
Debug.Print( .FocusItem )
Debug.Print( "Caption" )
Debug.Print( .CellCaption(.FocusItem,0) )
End With
End With
End Sub
Dim h
With AxGrid1
.BeginUpdate()
.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
.Columns.Add("Items")
With .Items
h = .AddItem("R1")
.InsertItem(h,Nothing,"Cell 1.1")
.InsertItem(h,Nothing,"Cell 1.2")
.ExpandItem(h) = True
h = .AddItem("R2")
.InsertItem(h,Nothing,"Cell 2.1")
.InsertItem(h,Nothing,"Cell 2.2")
.ExpandItem(h) = True
End With
.EndUpdate()
End With
|
|
615
|
How can I get the caption of selected item
' SelectionChanged event - Fired after a new item has been selected.
Private Sub AxGrid1_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxGrid1.SelectionChanged
With AxGrid1
With .Items
Debug.Print( "Handle" )
Debug.Print( .SelectedItem(0) )
Debug.Print( "Caption" )
Debug.Print( .CellCaption(.SelectedItem(0),0) )
End With
End With
End Sub
Dim h
With AxGrid1
.BeginUpdate()
.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
.Columns.Add("Items")
With .Items
h = .AddItem("R1")
.InsertItem(h,Nothing,"Cell 1.1")
.InsertItem(h,Nothing,"Cell 1.2")
.ExpandItem(h) = True
h = .AddItem("R2")
.InsertItem(h,Nothing,"Cell 2.1")
.InsertItem(h,Nothing,"Cell 2.2")
.ExpandItem(h) = True
End With
.EndUpdate()
End With
|
|
614
|
Is it possible to let users selects cells as in Excel
Dim h,h1
With AxGrid1
.BeginUpdate()
.FullRowSelect = EXGRIDLib.CellSelectEnum.exRectSel
.SingleSel = False
.ReadOnly = EXGRIDLib.ReadOnlyEnum.exReadOnly
.MarkSearchColumn = False
.ShowFocusRect = False
.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
.SelForeColor = RGB(0,0,0)
.SelBackColor = RGB(200,225,242)
With .Columns
.Add("A")
With .Add("B")
.AllowSizing = False
.Width = 24
End With
With .Add("C")
.AllowSizing = False
.Width = 24
.Def(EXGRIDLib.DefColumnEnum.exCellHasCheckBox) = 1
.PartialCheck = True
End With
With .Add("D")
.AllowSizing = False
.Width = 24
.Def(EXGRIDLib.DefColumnEnum.exCellHasRadioButton) = 1
End With
End With
With .Items
h = .InsertItem(Nothing,Nothing,"Group 1")
h1 = .InsertItem(h,Nothing,16)
.CellValue(h1,1) = 17
h1 = .InsertItem(h,Nothing,2)
.CellValue(h1,1) = 11
h1 = .InsertItem(h,Nothing,2)
.ItemBackColor(h1) = RGB(240,240,240)
.CellValue(h1,1) = 9
.ExpandItem(h) = True
h = .InsertItem(Nothing,Nothing,"Group 2")
.CellValueFormat(h,2) = EXGRIDLib.ValueFormatEnum.exHTML
h1 = .InsertItem(h,Nothing,16)
.CellValue(h1,1) = 9
h1 = .InsertItem(h,Nothing,12)
.CellValue(h1,1) = 11
h1 = .InsertItem(h,Nothing,2)
.CellValue(h1,1) = 2
.ExpandItem(h) = True
.SelectItem(h) = True
End With
.EndUpdate()
End With
|
|
613
|
Is it possible to change the style for the vertical or horizontal grid lines, in the list area
Dim h
With AxGrid1
.BeginUpdate()
.DrawGridLines = EXGRIDLib.GridLinesEnum.exAllLines
.GridLineStyle = EXGRIDLib.GridLinesStyleEnum.exGridLinesVSolid Or EXGRIDLib.GridLinesStyleEnum.exGridLinesHDot4
.Columns.Add("C1")
.Columns.Add("C2")
.Columns.Add("C3")
With .Items
h = .AddItem("Item 1")
.CellValue(h,1) = "SubItem 1.2"
.CellValue(h,2) = "SubItem 1.3"
h = .AddItem("Item 2")
.CellValue(h,1) = "SubItem 2.2"
.CellValue(h,2) = "SubItem 2.3"
End With
.EndUpdate()
End With
|
|
612
|
Is it possible to change the style for the grid lines, for instance to be solid not dotted
With AxGrid1
.BeginUpdate()
.DrawGridLines = EXGRIDLib.GridLinesEnum.exAllLines
.GridLineStyle = EXGRIDLib.GridLinesStyleEnum.exGridLinesSolid
.Columns.Add("Column")
.EndUpdate()
End With
|
|
611
|
I have some buttons added on the control's scroll bar, how can I can know when the button is being clicked
' ScrollButtonClick event - Occurs when the user clicks a button in the scrollbar.
Private Sub AxGrid1_ScrollButtonClick(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ScrollButtonClickEvent) Handles AxGrid1.ScrollButtonClick
With AxGrid1
Debug.Print( e.scrollBar )
Debug.Print( e.scrollPart )
End With
End Sub
With AxGrid1
.set_ScrollPartVisible(EXGRIDLib.ScrollBarEnum.exHScroll,EXGRIDLib.ScrollPartEnum.exLeftB1Part,True)
.set_ScrollPartVisible(EXGRIDLib.ScrollBarEnum.exHScroll,EXGRIDLib.ScrollPartEnum.exLeftB2Part,True)
.set_ScrollPartVisible(EXGRIDLib.ScrollBarEnum.exHScroll,EXGRIDLib.ScrollPartEnum.exRightB6Part,True)
.set_ScrollPartVisible(EXGRIDLib.ScrollBarEnum.exHScroll,EXGRIDLib.ScrollPartEnum.exRightB5Part,True)
.ScrollBars = EXGRIDLib.ScrollBarsEnum.exDisableNoHorizontal
End With
|
|
610
|
How do I get notified once the user clicks a hyperlink created using the anchor HTML tag
' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub AxGrid1_AnchorClick(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_AnchorClickEvent) Handles AxGrid1.AnchorClick
With AxGrid1
Debug.Print( e.anchorID )
Debug.Print( e.options )
End With
End Sub
With AxGrid1
.Columns.Add("Default").Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
With .Items
.AddItem("This is a link: <aex.com;1>www.exontrol.com</a>")
.AddItem("This is a link: <aex.net;2>www.exontrol.net</a>")
End With
End With
|
|
609
|
Is it possible to start editing a cell when double click it
' DblClick event - Occurs when the user dblclk the left mouse button over an object.
Private Sub AxGrid1_DblClick(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_DblClickEvent) Handles AxGrid1.DblClick
With AxGrid1
.Edit()
End With
End Sub
With AxGrid1
.BeginUpdate()
.AutoEdit = False
.MarkSearchColumn = False
.Columns.Add("Edit1").Editor.EditType = EXGRIDLib.EditTypeEnum.EditType
.Columns.Add("Edit2").Editor.EditType = EXGRIDLib.EditTypeEnum.EditType
With .Items
.CellValue(.AddItem(1),1) = 2
End With
With .Items
.CellValue(.AddItem(3),1) = 4
End With
.EndUpdate()
End With
|
|
608
|
Is it possible to disable standard single-click behavior for this column, so I manually could call Edit() when needed
' DblClick event - Occurs when the user dblclk the left mouse button over an object.
Private Sub AxGrid1_DblClick(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_DblClickEvent) Handles AxGrid1.DblClick
With AxGrid1
.Edit()
End With
End Sub
With AxGrid1
.BeginUpdate()
.AutoEdit = False
.MarkSearchColumn = False
.Columns.Add("Edit1").Editor.EditType = EXGRIDLib.EditTypeEnum.EditType
.Columns.Add("Edit2").Editor.EditType = EXGRIDLib.EditTypeEnum.EditType
With .Items
.CellValue(.AddItem(1),1) = 2
End With
With .Items
.CellValue(.AddItem(3),1) = 4
End With
.EndUpdate()
End With
|
|
607
|
How can I get or restore the old or previously value for the cell being changed
' Change event - Occurs when the user changes the cell's content.
Private Sub AxGrid1_Change(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_ChangeEvent) Handles AxGrid1.Change
With AxGrid1
Debug.Print( "Old-Value:" )
Debug.Print( .Items.CellValue(e.item,e.colIndex) )
Debug.Print( "New-Value:" )
Debug.Print( e.newValue )
End With
End Sub
With AxGrid1
.BeginUpdate()
.MarkSearchColumn = False
.Columns.Add("Edit1").Editor.EditType = EXGRIDLib.EditTypeEnum.EditType
.Columns.Add("Edit2").Editor.EditType = EXGRIDLib.EditTypeEnum.EditType
With .Items
.CellValue(.AddItem(1),1) = 2
End With
With .Items
.CellValue(.AddItem(3),1) = 4
End With
.EndUpdate()
End With
|
|
606
|
How can I get the item from the cursor
' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxGrid1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_MouseMoveEvent) Handles AxGrid1.MouseMoveEvent
Dim c,h,hit
With AxGrid1
h = .get_ItemFromPoint(-1,-1,c,hit)
Debug.Print( "Handle" )
Debug.Print( h )
Debug.Print( "Index" )
Debug.Print( .Items.ItemToIndex(h) )
End With
End Sub
Dim h
With AxGrid1
.BeginUpdate()
.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
.DrawGridLines = EXGRIDLib.GridLinesEnum.exHLines
.Columns.Add("Items")
With .Items
h = .AddItem("R1")
.InsertItem(h,Nothing,"Cell 1.1")
.InsertItem(h,Nothing,"Cell 1.2")
.ExpandItem(h) = True
h = .AddItem("R2")
.InsertItem(h,Nothing,"Cell 2.1")
.InsertItem(h,Nothing,"Cell 2.2")
.ExpandItem(h) = True
End With
.EndUpdate()
End With
|
|
605
|
How can I get the column from the cursor, not only in the header
' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxGrid1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_MouseMoveEvent) Handles AxGrid1.MouseMoveEvent
With AxGrid1
Debug.Print( .get_ColumnFromPoint(-1,0) )
End With
End Sub
Dim h
With AxGrid1
.BeginUpdate()
.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
.Columns.Add("P1")
.Columns.Add("P2")
.DrawGridLines = EXGRIDLib.GridLinesEnum.exAllLines
With .Items
h = .AddItem("R1")
.CellValue(h,1) = "R2"
.CellValue(.InsertItem(h,Nothing,"Cell 1.1"),1) = "Cell 1.2"
.CellValue(.InsertItem(h,Nothing,"Cell 2.1"),1) = "Cell 2.2"
.ExpandItem(h) = True
End With
.EndUpdate()
End With
|
|
604
|
How can I get the column from the cursor
' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxGrid1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_MouseMoveEvent) Handles AxGrid1.MouseMoveEvent
With AxGrid1
Debug.Print( .get_ColumnFromPoint(-1,-1) )
End With
End Sub
Dim h
With AxGrid1
.BeginUpdate()
.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
.DrawGridLines = EXGRIDLib.GridLinesEnum.exAllLines
.Columns.Add("P1")
.Columns.Add("P2")
With .Items
h = .AddItem("R1")
.CellValue(h,1) = "R2"
.CellValue(.InsertItem(h,Nothing,"Cell 1.1"),1) = "Cell 1.2"
.CellValue(.InsertItem(h,Nothing,"Cell 2.1"),1) = "Cell 2.2"
.ExpandItem(h) = True
End With
.EndUpdate()
End With
|
|
603
|
How can I get the cell's caption from the cursor
' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxGrid1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXGRIDLib._IGridEvents_MouseMoveEvent) Handles AxGrid1.MouseMoveEvent
Dim c,h,hit
With AxGrid1
h = .get_ItemFromPoint(-1,-1,c,hit)
Debug.Print( .Items.CellCaption(h,c) )
End With
End Sub
Dim h
With AxGrid1
.BeginUpdate()
.LinesAtRoot = EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
.Columns.Add("Items")
With .Items
h = .AddItem("R1")
.InsertItem(h,Nothing,"Cell 1.1")
.InsertItem(h,Nothing,"Cell 1.2")
.ExpandItem(h) = True
h = .AddItem("R2")
.InsertItem(h,Nothing,"Cell 2.1")
.InsertItem(h,Nothing,"Cell 2.2")
.ExpandItem(h) = True
End With
.EndUpdate()
End With
|
|
602
|
How can I customize the items based on the values in the cells
Dim h,h1
With AxGrid1
.BeginUpdate()
.MarkSearchColumn = False
With .ConditionalFormats
With .Add("%1 >4")
.Bold = True
.StrikeOut = True
.ForeColor = RGB(255,0,0)
.ApplyTo = EXGRIDLib.FormatApplyToEnum.exFormatToItems
End With
With .Add("%2 > 4")
.Bold = True
.StrikeOut = True
.ForeColor = RGB(255,0,0)
.ApplyTo = &H2
End With
With .Add("%3 > 4")
.Bold = True
.StrikeOut = True
.ForeColor = RGB(255,0,0)
.ApplyTo = &H3
End With
End With
With .Columns
.Add("Name")
With .Add("A")
.SortType = EXGRIDLib.SortTypeEnum.SortNumeric
.AllowSizing = False
.Width = 36
.FormatColumn = "len(value) ? value + ' +'"
.Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
End With
With .Add("B")
.SortType = EXGRIDLib.SortTypeEnum.SortNumeric
.AllowSizing = False
.Width = 36
.FormatColumn = "len(value) ? value + ' +'"
.Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
End With
With .Add("C")
.SortType = EXGRIDLib.SortTypeEnum.SortNumeric
.AllowSizing = False
.Width = 36
.FormatColumn = "len(value) ? value + ' ='"
.Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
End With
With .Add("A+B+C")
.SortType = EXGRIDLib.SortTypeEnum.SortNumeric
.AllowSizing = False
.Width = 64
.ComputedField = "%1+%2+%3"
.FormatColumn = "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)"
.Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
End With
End With
With .Items
h = .AddItem("Root")
.CellValueFormat(h,4) = EXGRIDLib.ValueFormatEnum.exComputedField
h1 = .InsertItem(h,Nothing,"Child 1")
.CellValue(h1,1) = 7
.CellValue(h1,2) = 3
.CellValue(h1,3) = 1
h1 = .InsertItem(h,Nothing,"Child 2")
.CellValue(h1,1) = 2
.CellValue(h1,2) = 5
.CellValue(h1,3) = 12
h1 = .InsertItem(h,Nothing,"Child 3")
.CellValue(h1,1) = 2
.CellValue(h1,2) = 2
.CellValue(h1,3) = 4
h1 = .InsertItem(h,Nothing,"Child 4")
.CellValue(h1,1) = 2
.CellValue(h1,2) = 9
.CellValue(h1,3) = 4
.ExpandItem(h) = True
End With
.EndUpdate()
End With
|
|
601
|
Is it is possible to have a column computing values from other columns
Dim h,h1
With AxGrid1
.BeginUpdate()
.MarkSearchColumn = False
With .Columns
.Add("Name")
With .Add("A")
.SortType = EXGRIDLib.SortTypeEnum.SortNumeric
.AllowSizing = False
.Width = 36
.FormatColumn = "len(value) ? value + ' +'"
.Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
End With
With .Add("B")
.SortType = EXGRIDLib.SortTypeEnum.SortNumeric
.AllowSizing = False
.Width = 36
.FormatColumn = "len(value) ? value + ' +'"
.Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
End With
With .Add("C")
.SortType = EXGRIDLib.SortTypeEnum.SortNumeric
.AllowSizing = False
.Width = 36
.FormatColumn = "len(value) ? value + ' ='"
.Editor.EditType = EXGRIDLib.EditTypeEnum.SpinType
End With
With .Add("A+B+C")
.SortType = EXGRIDLib.SortTypeEnum.SortNumeric
.AllowSizing = False
.Width = 64
.ComputedField = "%1+%2+%3"
.FormatColumn = "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)"
.Def(EXGRIDLib.DefColumnEnum.exCellValueFormat) = 1
End With
End With
With .Items
h = .AddItem("Root")
.CellValueFormat(h,4) = EXGRIDLib.ValueFormatEnum.exComputedField
h1 = .InsertItem(h,Nothing,"Child 1")
.CellValue(h1,1) = 7
.CellValue(h1,2) = 3
.CellValue(h1,3) = 1
h1 = .InsertItem(h,Nothing,"Child 2")
.CellValue(h1,1) = 2
.CellValue(h1,2) = 5
.CellValue(h1,3) = 12
h1 = .InsertItem(h,Nothing,"Child 3")
.CellValue(h1,1) = 2
.CellValue(h1,2) = 2
.CellValue(h1,3) = 4
h1 = .InsertItem(h,Nothing,"Child 4")
.CellValue(h1,1) = 2
.CellValue(h1,2) = 9
.CellValue(h1,3) = 4
.ExpandItem(h) = True
End With
.EndUpdate()
End With
|